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Call 7 ) / Y 
Queridos lectores: 
De nuevo entre ustedes, de la mano de este tercer ejemplar de 
AMSTRADMANIA, nos complace anunciarles que nuestra revista va 


imponiendo su frecuencia y estilo dentro de este difícil y peculiar 
mercado. 


Son numerosísimas las cartas recibidas con respuesta a nuestro 
«PROGRAMA CONCURSO» del primer y segundo números, y aun 
considerando la escasa dificultad de las preguntas, el número de 
aciertos a las incógnitas presentadas nos satisface sobremanera, 
puesto que no esperábamos un interés y un nivel tan notable entre 
aquellos usuarios y aficionados que cuentan, trabajan y juegan con 
un microordenador AMSTRAD. 


Siéndonos por el momento imposible contestar a todas las cartas 
recibidas con respuestas acertadas, nos limitamos a contactar con 
aquellos a quienes, por sorteo entre los acertantes, haya 
correspondido el premio. 


Esto no debe desanimar a nadie, y menos sabiendo que uno de 
nuestros proyectos más inmediatos, en vista de los resultados 
obtenidos por nuestra revista, es mejorar sustancialmente los premios 
de los acertantes, publicando una lista con sus nombres y realizar 
sorteos semestrales entre todos aquellos que no hayan sido 
premiados. 


Esperamos seguir contando con su favor y sus cartas. 


_¡Animo!, amigos lectores. 
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Durante los días 23, 24 y 25 del pasado EDITORIAL COMETA, estuvo presente 
mes de mayo, tuvo lugar en el Palacio de en un stand, y en visita a los distintos 
Congresos y Exposiciones de Madrid, la 1.* expositores, recogió las noticias más 

Feria Amstrad, dedicada a la presentación interesantes para sus lectores, de las cuales 
de las últimas novedades sobre Amstrad y hacemos en AMSTRADMANIA un pequeño 
priféricos existentes en el mercado. resumen. 
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pen 


PILJAJCIO(A 


(PLAN GENERAL CONTABLE) 


AMSTRAD 


El programa 
que no muerde 


MICROMOUSEpresentó con gran novedad 
el programa PLACON, programa de 
contabilidad versión 5. 

PLACON resuelve los problemas contables y 
de IVA. Su sencillez reside tanto en el 
programa como en su manual. 

Siguiendo el manual dividido en tres puntos 
cualquier profano en la materia, podrá llevar 
la contabilidad de 1, 2 o más empresas sin 
ninguna dificultad. 

Su primer punto es una breve introducción a 
la informática, a su ordenador y a su 
sistema operativo. 

En la segunda parte se toma el primer 
contacto con el programa, como introducción 
a la contabilidad mediante ordenador. Aquí 
se incluye un ejemplo basado en una 
empresa ficticia. 

Como final el manual da una descripción 
detallada de cada unas de las opciones del 
programa PLACON. 


JUEGOS 


MICRO BYTE ha presentado sus 
sensacionales programas de maravillosos 
juegos, entre los cuales puede ser 
protagonista de las más variadas aventuras. 
Ser piloto de una sofisticada aeronave o el 
«delantero centro» del mejor equipo de 
fútbol, pasando por una guerra espacial o 
venciendo a terribles monstruos. 


NOVEDAD MUNDIAL 


ACE SOFTWARE, dentro de la 
presentación de sus nuevos programas, 
destacó como novedad mundial, el primer 


- juego de Ajedrez por ordenador AMSTRAD 


PCW 8256/512. 

Por otro lado, y como auténtica primicia 
presentó el primer programa desarrollado en 
ROM para los ordenadores CPC 464 y 
6128. 


MPLAYER 0:02:59 TT . 


PROFESIONALES 


MICRO BYTEM ha lanzado al mercado 
una serie de programas para Amstrad PCW 
8256 y Amstrad CPC 6128. 

Estos programas, al margen de su bajo 
precio, están considerados por MICRO BYTE 
como uno de los mejores del mundo. 

Entre otros, podemos destacar: 

— El generador de programas D BASE ll. 
— MS-FORTRANS COMPILER 

— MULTIPLAN 

— PASCAL MT + 

— DR. GRAPH 

— MS COBOL COMPILER 


ESTRELLAS DEL SUPERPROGRAMA 
estas son sus estre 


O o 


OFITES INFORMATICA, presentó sus 

estrellas; los programas NUCLEUS, 

BRAINSTORM y STARCOM. 

NUCLEUS: es un generador de programas, 

base de datos y generador de informes. 

Toda la información es multi-intercambiable y 

de libre acceso por cualquiera de los demás 

programas. Así los datos de la base los 

condicionamos y utilizamos en el generador 

de programas y los imprimimos a través del 

generador de informes. 

e Generador de programas en Mallard 
Basic. 

e Creación de bases de datos relacionales. 

e Generador de informes. 

e Diseñador de formatos. 

e Diseñador de pantallas. 

e Código fuente de libre acceso y libre de 

error. 

Diseña su propio sistema. 

Mailmerge. 


POTENCIA PARA 
SU AMSTRAD 


CH, Distribuidor exclusivo en España de los 
productos DK"TRONICS presentó: 

e SISTETIZADOR DE VOZ: Un sintetizador 
de voz y amplificación de sonido en estéreo 
que aumenta y mejora en gran manera la 
calidad del altavoz interior. 

e DISCO DE SILICIO 256K: Disco en RAM 
con acceso muchas veces más rápido que 
el convencional y con mayor capacidad de 
almacenamiento. 

e LAPIZ LUMINOSO: Un paquete de 
gráficos el cual incluye una Paleta de 
Colores, selección de brocha, tratamiento de 
textos y de caracteres definidos. 
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BRAINSTORM: es la ayuda necesaria para 
su organización. El programa que se ha 
standarizado en Inglaterra, tan necesario, útil 
y popular como una base de datos o un 
tratamiento de textos. 

e Organiza por rangos. 

Acceso descendente pormenorizado. 
Planificación a nivel día. 

Decisiones a largo plazo. 

Revisión de problemas. 

Simultaneización de tareas. 

e Proceso TOP/DOWN. 

STARCOM: le pone a su disposición el 
mundo de las comunicaciones digitales, las 
redes de transmisión electrónica digitalizada, 
con su PCW 8256 o PCW 8512 a través de 
un interface RS 232-C con otros 
ordenadores, redes de transmisión de datos, 
etc..., usted podrá enviar o recibir ficheros 
de texto o de datos, ASCII, etc..., creados 
por NEWWORD y otros... 


ICROCLAS 


E JESAJER 
- mba 
invoducón al Bo 30 


E 


FLUJO DE LA INFORMACION E INSTRUCCIONES EN LA 
UNIDAD CENTRAL DE PROCESO 


ENTRADA SALIDA 
PROGRAMAS RESULTADOS 
Y 


DATOS 


[Pata DATOS ] | RESULTADOS 


INSTRUCCIONES 
oy 


U. C. P. 


ESTE ESQUEMA REPRESENTA EL FLUJO DE LA INFORMACION Y DE LAS 
INSTRUCCIONES ENTRE LAS DISTINTAS UNIDADES QUE FORMAN LA UCP CUAN- 
DO SE EJECUTA UN PROGRAMA. 


LAS UNIDADES 
PERIFERICAS 


Un ordenador trabaja con información y, 
por lo tanto, necesita unos medios para 
que se le suministren datos (entrada) y 
para que él suministre los resultados 
(salida de datos). Estos medios son las 
unidades periféricas o periféricos. 

El periférico para la comunicación entre el 
ordenador y el usuario y viceversa es la 
consola (conjunto de pantalla y teclado). 
Hay varios tipos de periféricos: 


e De entrada de datos: sólo permite la 
entrada de información. El periférico es el 
teclado. 

e De salida de datos: sólo permiten esta 
función. Los periféricos son la pantalla y la 
impresora. 

e De entrada y salida: son los periféricos 
que permiten tanto la transferencia de 
datos desde éstos a la memoria y desde 
la memoria a los mismos. Son las 
unidades que permiten el almacenaje de 
datos y programas de forma perdurable en 
el tiempo. Son las unidades de disco, de 
cinta, de floppy, etc. 


LA MEMORIA 


— Clases fundamentales de memoria: 


e Memoria ROM. 


Sus iniciales son de Read Only Memory o 
memoria de sólo lectura, es decir, que en 
este tipo de memoria no se puede 
almacenar nada ni borrar su contenido. 
Este tipo de memoria no es accesible por 
el usuario. En ella residen, en el caso de 
los microordenadores, el sistema operativo 
y el intérprete BASIC. 


e Memoria RAM. 


Random Access Memory, o memoria de 
acceso aleatorio. Es la memoria disponible 
para el usuario. En ella se puede 
almacenar, modificar o borrar. Su principal 
diferencia con la memoria ROM es que 
esta última permanece, incluso cuando se 
desconecta el ordenador de la red; pero 
los datos de la memoria RAM 
desaparecen. 
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UNIDADES DE MEMORIA 


e El Byte. 


También se llama octeto o posición de 
memoria. 

Es la menor unidad de memoria 
direccionable. En un Byte se puede 
almacenar un carácter. 


e '|lak. 


También se llama Kilobytes, Kbytes o 
Koctetos. Una K son 1.024 Bytes. 


e El Mbyte. 


También se llama Megabyte o 
Megaoctetos. Un Megabyte son 1.024 K o 
1.048.576 Bytes. 


LA MEMORIA 


— Modo de almacenamiento de memoria. 


Cada carácter se almacena en un Byte, 
pero no se almacena como tal, sino en un 
código electrónico. Estos códigos 
electrónicos que corresponden a 
caracteres se representan con números. 
Existen dos códigos, los más utilizados, 
que están estandarizados, son el código 
ASCII y el EBCDIC. 


e El código ASCII. 


El código ASCII (American Standard Code 
for Information Interchange) es el más 
utilizado por los microordenadores. Los 
caracteres equivalen a números del 32 al 
126, y esto a códigos electrónicos de O y 
1 (0 representa no electricidad y el 1 
presencia de electricidad). Por ejemplo, la 
«C» es en código ASCII 67 y en código 
electrónico 01000011. 


LOS LENGUAJES DE 
PROGRAMACION 


— Definición. 

El ordenador es capaz de ejecutar 
conjuntos de instrucciones para realizar 
una función determinada; a esto se llama 
programa; para escribir programas es 
necesario utilizar lenguajes. 


e El lenguaje MAQUINA. 


El lenguaje de máquina es el lenguaje 
comprensible directamente por el 
ordenador. Está compuesto de ceros y 
unos (sistema binario), que representan 
estados electrónicos. 

Programar en lenguaje Máquina resultaría 
muy arduo, ocuparía mucho tiempo y las 
equivocaciones serían muy frecuentes. 


e El lenguaje ENSAMBLADOR. 


El lenguaje Ensamblador, o simplemente 
Ensamblador (en inglés, Assembler), es de 
bajo nivel; esto quiere decir que cada 
instrucción del lenguaje corresponde a una 
y sólo una instrucción de lenguaje 
Máquina. Por esta razón es el lenguaje 
que ocupa menos memoria y es el más 
rápido de todos. Sus instrucciones son 
simbólicas y están en forma nemotécnica, 
que dista mucho del idioma inglés. 

El inconveniente del lenguaje Ensamblador 
es que los programas escritos así no son 
compatibles e intercambiables entre 
distintos ordenadores, ya que cada 
ordenador tiene su propio lenguaje 
Ensamblador. 


e Los lenguajes de ALTO NIVEL (o 
simbólicos). 

Se dicen que son lenguajes de Alto Nivel 
todos aquellos que sus instrucciones 
corresponden a más de una instrucción de 
lenguaje Máquina. Estos lenguajes son: 
BASIC, COBOL, FORTRAN, RPG, PL/1, 
ALGOL, APL, LOGO, PASCAL, FORTH, 
entre muchos otros. 

Estos lenguajes están muy próximos al 
idioma inglés o a expresiones 
matemáticas, por lo que resulta más fácil 
programar con ellos. Además, estos 
lenguajes son casi estándares, de forma 
que pueden ser intercambiables entre 
distintos ordenadores. 

La diversidad de estos lenguajes se debe 
a la función a la que están orientados. Por 
ejemplo, el COBOL, PASCAL y RPG están 
orientados al área de la gestión 
(contabilidad, nóminas, documentos, etc.); 
el FORTRAN está orientado a las áreas 
científicas, y el BASIC, en principio, a los 
principiantes, pero su facilidad de 
aprendizaje y de manejo lo ha extendido a 
las demás áreas. 


LOS PROGRAMAS 
TRADUCTORES 


— Definición. 

El ordenador sólo comprende el lenguaje 
de Máquina, y no puede ejecutar 
«directamente» programas que se le 
suministren en otros lenguajes. Ello implica 
que para que se puedan ejecutar estos 
programas se habrán de «traducir» las 
instrucciones de estos nuevos lenguajes a 
instrucciones de lenguaje de Máquina. 
Por tanto, un programa traductor se 
encarga de traducir las sentencias en 


lenguajes de Alto Nivel o Ensambladores a 
lenguaje Máquina. 

e Tipos: 

Dependiendo de las características del 
lenguaje y de la forma de traducirlos, hay 
tres tipos de programas traductores, que 


son: ensambladores, compiladores e 
intérpretes. 


a) ENSAMBLADORES. 


Traducen el programa escrito en lenguaje 
Ensamblador a lenguaje Máquina. 
Producen un programa en lenguaje 
Máquina y un listado del programa original 
con indicaciones de los errores y en qué 
punto se han producido. 


b)  COMPILADORES. 


Traducen los programas escritos en 
lenguaje de Alto Nivel a lenguaje Máquina, 
lo hacen una vez completado el programa, 
es decir, por bloques de líneas. 

Producen un programa en lenguaje de 
Máquina y un listado del programa original 
con indicaciones de los errores, cuáles y 
dónde se producen. 

En el momento de la ejecución del 
programa, es el que está en lenguaje 
Máquina el cargado en la memoria. 


c) INTERPRETES. 


Traducen los lenguajes de Alto Nivel, línea 
por línea, a lenguaje Máquina. No 


-producen listado de errores ni programa 


en lenguaje Máquina; los errores son 
indicados en el momento. 

Cuando se ejecuta el programa se hace 
con el lenguaje de Alto Nivel; por lo tanto, 
primero interpreta la línea y luego la 
ejecuta. 
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Cuaderno de apuntes 


AMSTRADMANIA, revista de microinformática, cuyo fin es divulgar y ayudar al lector, tiene el gusto de presentar 


su «cuaderno de programas». 


Su finalidad es la de posibilitar la conservación y el desarrollo de programas. 

El gran problema que se plantea a cualquier aficionado a la informática es dónde escribir sus programas. 
AMSTRADMANIA ha decidido resolver este problema ofreciéndoles en cada número una hoja tipo donde poder 
archivar y anotar sus posibles programas. 

Este cuaderno se divide en las siguientes partes: 


1. Aquí tiene que poner el título 


de su programa. 
2. Descripción del programa, 
pasos, evolución, 


funcionamiento del programa, 


etc. 
3. Número de línea del 
programa. 


4. Pasos, sentencias, órdenes o 
variables correspondientes a 


cada línea. 
5. Zona destinada al 


organigrama para facilitar el 
“entendimiento y evolución del 


programa. 


70 


Recomendamos que los 
programas sean escritos con 
lápiz-mientras-se-estén 


inventando, puesto que al hacer 


un programa es inevitable el 
tener que borrar una línea o 
cambiarla. 


TITULO 


DESCRIPCION 


Con el fin de poder ayudar con 
estos programas educativos al 
mayor número de lectores, 
AMSTRADMANIA ha decidido, 
siempre y cuando la longitud de un 
listado lo permita, incluir dentro de 
esta sección más de un programa 
con diferentes niveles. 


De esta manera el lector que por la 
especialización del tema no se 
sienta ayudado con uno de los 
programas publicados pueda 
acceder al otro. 


NOTA: Recomendamos el archivo 
de todos estos programas. 
En su momento pueden ser 
de gran ayuda. 
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REPRESENTACION 
GRAFICA DE 
FUNCIONES DE 
UNA VARIABLE 


Este programa tiene como fin poder 
representar funciones matemáticas 
de una variable, de forma que 
pueda observar las características 
de la curva, dentro de unos 
intervalos determinados que el 
programa nos pide. 


Mediante el uso de este programa 
tenemos una visión global de la 
función, dentro de dichos intervalos. 


La función se introduce de manera 
sencilla, y al pulsar las dos teclas 
que se indican en pantalla comienza 
a pedir los intervalos de 
representación. 


Si colocamos unos intervalos 
centrados, por ejemplo: 


x > ES y > —41Los ejes saldrán 
x<-—5) y<4 Jfcentrados 

en mitad de 

la pantalla. 
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En el caso de que el intervalo, bien 
el de «x» o bien el de «y», los ejes 
aparecerán más o menos a la 
derecha o arriba o abajo. 


Los ejes, tanto el «x» como el «y», 
aparecen graduados según los 
intervalos que se hayan fijado. Las 
funciones que se introducen son de 
la forma y = F(x); se pueden 
obtener gráficas como la función 
seno, coseno, y = x*, y = [x] se lee 
y = parte entera de «x>». 


No intentes pedir que te represente 

una función en la cual existan raíces 
imaginarias, ya que lo representado 

pertenece al campo real. 


En el caso de representar una raíz, 
es útil colocar un intervalo de «Xx» 
donde la función exista. 


se 231IHK 1,6: 1HK 4,15:BORDER 13 
Í 
AsS="REPRESEMTACION: GRAFICA DE FUNCIONES (DE UNA. VARIABLE" 
A=LEHNE AS 7 
LOCATE 164.8:PRINT "3% 
LOCATE 16. 3:PRIHNT STRIHGSOH.U="0 
LOCATE 24.22: PEIHT"DESEA TINSTRUCCIÓNES 7 
Ab= INKEVYS: AB=SLIFPERA Ah 
IF As="5" THEN GOTO 634 
100 IF Aá="4" THEH 1146 ELSE 24 
116 CELS: MODE 
1248 LS 
136 LOCATE 24, 3:PRIHT" FORMA CARTESIAHA" 
144 LOCATE 24,4:FRIMT STRING 34 Mo 
154 LOCATE 14,10:FRIAT"IRNTEOOUCE LA FUNCION EN LA LINEAR 196 Y CUANDO LO HAYAS H 
ECHO" 
164 LOCATE 1%, 12:PRIMT"PULSA LAS TECLAS LO CTRL OIJ + E ENTER 3] FARA SEGUIR ADELAN 
TE" 
176 KEY 146), CHESS 13 RATO 22 CHAR 10 
134 LOCATE 34,18:E0I1T 124 
156 MRAZ 
¿546 0H ERROR GOTO EL 
214 RETURA 
2268 “CIBLLIO DE LA FLINCION 
2d GASUE 239 
¿44 BORDER 168:LOCHATE 225: PRIHNT SFE 
208 == 10 GOSUE 121: PLOT a EN 
ERA FOR a=slerlerz TO «2 STEF de 
DON ERROR STO EskiKs 
deoE E 136: PLOT ka dar 
HEWT ¿BORDER 15 
LOCATE 2.25:PRIHT " CiitCcambiar los dominios L2J-Camb 
cla funcion" 
ah IHNKE VS 
a HLia Boi IE 321 0 a:2 THEH 31% 
ON a GATO 344 126 
"SUERUTIMA CE EJES 
CELS 
LÓOCATE 15, 11:PRINT" Intervalo de definicion de 
INPUT "".21 
A LOCATE 342,12 > IHFLIT O" 2,2 
LOCATE 13. 15:FEINT" Intervalo de definicion de 
4 TMELIT "9.1 
AOLOCATE 43,18: INPUT" Y 2,2 
CELS 
CAE AAA Rd de ME AL 
ORIGIN 24-ck1,. 24 041 
MOVE cé1-10, 64: DRAE 5244, 4 
SA MOYE 4. dr 110: RAM A, a) 
FOR n=ckélHTx10 TO cAIHT2 2202 STEP 
MOE m2: DRAWE A. 4: HET 
FOR n=dRlHT2Y13 TO diAIHTE TZ: 
MOYE Zion DEAR —4, (4: HET 
MOYE cix2+10,0:DEAMR $ 
DEAR 4.2: DERE 5. 
34 MOVE 4.drr2+ 10: DERE 3. 
A DRAE EA: DRAE 3. 
GOTO 244 
RETLIEH 
LS 
A PLOT 326, 2468: DRAN 324, E: DEAN) 241, : 226, 244: DEAN 4.260: 0KAN 644, 204 
RETLIRH 


O MA e du Phi 
SO UE tot] 


Lo 
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£00 “ERRORES 
610 RESUME NEXT 
624 ELS 


E3AB WINDON £1,2,73,1,3:LOCATE £1.26,2:PRIHT £l. INSTRUCCIONES GEMERALES  * 
644 WINDION £4,2, 739,4. 24: CLOS £6 


63% PLOT 4.6:DEAN 4, 339:DRAN 6339, 33%973:DEAN 639,4: DEAL 0) 

6664 PRINT:PRIMT 

EPA PRINT" - El objeto de este Programa es la representacion Srafica de funciore 
2 de una variable independiente, e 

2 decir de la forma Yo= Fc" 

ESA PRIMT 

639% PRINT" - Permite la representacion de tado tiro de funciones Jue se encuenter 


en en el campo real. Las funciones ve 

campo imadinario, como raloez de IUIMeraz Neat) TU EN Pa 
Prezentablez en el campo de" 

Fab PRIMT" loz. numeros reales," 


vió PEIMT 

rea PEINT" - La forma de introduccion de la funcion es simplemente senuir las 
instriuccionez de pantalla," 

34 PRIHT 

146 PRINT" - Una vez introducida la funcion: el Proderama Pide unoz intervaloz de 
definicion de la funcion. tan 


to Para el eje 2 coma Fara el eje Ys de forma “Ale variard 
o estoz intervalos de defin" 

oa PEINT" nicion se conziSne ina vision miz Aeneral de la funcio 
a er ese intervalo" 


PRA LOCATE 24,21:PRINT" PARA CONTIHUAR PULSA CUALOUTIER TECLA " 
cra Ab=IHKEYR > IE Af="" THEN 774 
cab GOTO 114 


Con frecuencia se habrá visto 
obligado a resolver aburridos 

sistemas de ecuaciones que 

parecían interminables. 


Evite esta pesadilla convirtiendo su 
AMSTRAD en una máquina de 
resolver sistemas de ecuaciones (el 
máximo de ecuaciones es de 60). 


Para utilizar el programa 
GAUSS-SISTEM, pulse PLAY, 
<CTRL> <ENTER> y luego 
cualquier otra tecla. Después de 
cargado, el programa le pedirá el 
número de incógnitas, introdúzcalo. 
A continuación aparecerá el símbolo 
«?» para que empiece a introducir 
los coeficientes y términos 
independientes de cada una de las 
ecuaciones. La manera de introducir 
estos datos es la siguiente: 


Supongamos el 
sistema: la + 2b = 8 
2a + 3b = 13 


La secuencia de entrada de . En caso de que haya introducido 

números será: algunas ecuaciones que son 

? 1<ENTER> linealmente dependientes entre sí el 

2 2<ENTER> programa le dará el oportuno 

? 8<ENTER> mensaje de error. 

? 2<ENTER> 

2 2<ENTER> NOTA: Si los coeficientes 

2? 3<ENTER> - introducidos son muy pequeños: por 

213<ENTER> ejemplo, 0,0001, etc., no se 
garantiza la exactitud del resultado, 

A continuación aparecerá el sistema que, al ser números tan pequeños, 

de ecuaciones escrito junto con las los errores acumulados por el 

soluciones. algoritmo no son despreciables 
frente a estos valores y el resultado 


probablemente saldrá falseado. 
EEE ANNA AAA IA AAA AIR IEA ATA 
10 MODE 1 
20 LOCATE 7,1:FRINT CHRE (24) ¿¿FRINT" O XXXxkxX GAUSS-SISTEM XXXXX "GFRINT CHRE (24); 
Ea 30 LOCATE 13,32FRINT"COMENZAMOS ..."FRINT 50) 
40 FRINT O CHRE(24) 4 
50 FRINT"El objetivo del programa es el no tener"; 
60 PRINT"que perder mucho tiempo en la resolu"; 
(eN) 70 FRINT"cion de los aburridos SISTEMAS DE ECUA-" 4 ES) 
86 FRINT"CIONES. "SS FRINTIPRINTi¿FRINTO CHAR (24) 4 
90 FRINT O STRINGS(39,"4") ¿FRINT 
100 PRINT"Fara utilizarlo,primeramente habras de " 
o 110 PRINT"introducir el numero de incognitas del " 
120 FRINT"sistema a resolver.A continuacion se te" 
130 FRINT"pediran los distintos coeficientes de" 
140 PFRINT"lse distintas ecuaciones que componen" 
O 150 FRINT"el SISTEMA.Una vez introducidos los da-" 
160 PRINT"tos, el sistema uy las soluciones apare"" 
170 PRINT"ceran escritos en pantalla." “¿FRINT:¿FRINT STRINGE(39,"4") 
180 FPRINT CHRE (24) 23 LOCATE 13,23:3PRINT CHRE(1649) 4" David Garcia" 3CHRE (24) ¡FRINT 
3 190 PRINT"FPulsa cualguier tecla para comen OS 
repr=INEEYES TF repro THEN 210 ELSE 200 O 
FRINT CHAR (23) Oe CLo a 
FOR 240 TO 400 STEF 22FLOT 0.2% :DRAW 640,2 %2FLOT 0,4002 %:DRAW 640 ,400-27%¿N 


TT 


Y PRINT CHREC230 1 2HRE (O) O 

2 MOM 2 

 PRINTO CHA (240 y 

A PRINT"Yamos a resolver un sistema de ecuaciones, sique mis instrucciones. 

0 246 PRINTOSTRINGE (87,0) GPRINTOCHRE (245 (5) 
O INFUT "Primero dime el numero de incognitas del SISTEMA "idimen 

THEN GOSUB 1353046070 230 


IF dimer 
TF dimen; 


276 DTM atdimen,dimen+1) 
280 ETM bídimern,cdimerr1) 
2906 ÚTM yx Cdimer) 

15] 300 REM Da 
310 REM HHHRHAA INTRODUCCIÓN TE DATOS HARE 

320 REM 

321 PRIMT CHRS(24) FRINT"Ahora vas a introducir los coeficientes que yo te pida. 


322 PRINTOSTRINGE (57, "DG FERINTiPRINTO CHE: (24) 4 O 
33G FOR f=1 TO dimer 
340 FOR c=l TO dimen+i 


O 3390 1F c=dimen+i THEN PRINT"Termino independiente de la ecuacion "14" "¡ELSE FR 
INT"coeficiente "3c3" de la ecuacion "33" "; $ 
360 INFUT nunk - 


370 a(f,c)=VAL (num+) 

380 b(f,c)=a(f,c) 

390 NEXT c 

400 NEXT 4 

410 REM . 

420 REM OBTENCION DE LA MATRIZ TRIANGULAR 
430 REM 

440 FOR fila =1 TO dimen 

450 GOSUR 1210 

460 GOSUE 1340 

470 GOSUBE 1410 

480 NEXT fila 

490 CLS 

500 REM 

510 REM ESCRITURA DEL SISTEMA DE ECUACIONES 
520 REM 

330 PRINT "SISTEMA DE ECUACIONES :" 

540 FPRINT STRING (21 ,CHR$(208)) 

350 FOR f=1 TO dimen 

560 FRINT 

370 FOR c=1 TO dimen+1 

3580 IF (b(f,c)20) THEN caf=" -" ELSE cad=" +" 

390 IF ((c=dimen+1)OR (c=1))AND(b(f,c)=0) THEN cat="  " 
600 IF ci*(dimen+1) THEN FRINT car ¿STREC(ABS (b (4 ,c))) ¡¿CHRE(96+c) ¡ELSE PRINT O" ="; 
caFiSTRECABS (b(f,c))3)5 

610 NEXT € 

620 NEXT + 

630 REM 

640 REM VEMOS SI EL SISTEMA ES L.DIEFENDIENTE 
630 REM 

660 flaa=0 

670 FOR n=1 TO dimen 

680 IF aínm,n)=0 THEN flag=1 

690 NEXT n 

700 IF flag=0 THEN GOTO 770 

710 PRINTiFRINT:FRINT"NO te lo puedo resolver:" 

720 FRINT:FRINT "el sistema es incompatible , o me has dado 2 ecuaciones o mas, 
1. dependientes" ; 

730 GOTO 950 

740 REM 

730 REM HALLAMOS LA SOLUCION 
760 REM 

770 x(dimen)=a(dimen,dimen+1)/a(dimen,dimen) 

780 FOR f=dimen-1 TO 1 STEF -1 

790 suma=0 

800 FOR c=dimen TO f+1 STEF -1 

810 suma=sumata (4 ,c)Xx (Cc) 

820 NEXT € 

830 x (f)=(a(f ,dimen+1)-suma)/a(f ,f) 

840 NEXT 4 

850 PRINT:PRINT 

860 PRINT"SOLUCIONES" 

870 PRINT STRING*(10,CHR*(208)) 

880 FOR c=1 TO dimen 

890 FRINT CHRE(9ó6+c) 7" ="; 

900 PRINT x(c) 

910 NEXT c 

920 REM 

930 REM HHRRA OFCIONES 

940 REM 

930 LOCATE 60,1 

960 FRINT "OTRA VEZ? << S/N >" 


970 d$= INKEY+ 

9560 IF UFFERE (d+)="N" THEN GOSUB 1050 :END 

990 IF UPPER (d+)="S" THEN RUN 230 

1000 GOTO 970 

1010 ENO 

1020 REM AA SUBRUTINAS orcos ADS 


1030 REM 

1040 REM HHHHE MENSAJE FINAL HA 
1050 CLS 

1060 MODE 0 

1070 FRINT " Aqui termina la" ¿FRINT 

1080 FRINT " ejecucion del" :FRINT 

1090 FRINT " programa GAUSS" 

1100 LOCATE 1,23 

1110 FRINT " Mlavid Garcia" :FRINT 

1120 FRINT " 17-12-84" 

1130 FOR n=1 TO 3000: NEXT n 

1146 CLS 

1130 MODE 2 

1160 LOCATE 1,1 

1170 RETURN 

11890 REM 

1190 REM HALLAMOS LOS VALORES MAXIMOS DE CANA COLUMNA 
1200 REM j 

1210 maxi=ABSta(fila,fila)) 

1220 maxizza(fila,fila) 

1230 indifi=fila 

1240 FOR f=fila TO dimen 

12:30 IF maxió=ARS (a(f ,fila)) THEN GOTO 1290 
1266 indifi=4 

1270 max isARS la (f ,fila)) 

1280 maxiiza(f,fila) 

1290 NEXT 

1300 RETURN 

1310 REM 

1320 REM CAMBIO LA FILA DE MAYOR COEFICIENTE AL FRINCIFIO 
1330 REM 

1340 1F indifigz%=fila THEN GOTO 1400 

1330 FOR c=l1 TO dimen +1 

1360 aux=a(indifi,c) 

1370 alindifi,c)=za(fila,c) 

1380 aífila,c)= aux 

1390 NEXT 

1400 RETURN 

1410 REM 

1420 REM OFERACIONES CON LAS FILAS 
1430 REM 

1440 FOR +$=fila+1 TO dimen 

1450 nunero=a(f,fila) 

1460 IF numero=0 THEN GOTO 1500 

1470 FOR c=fila TO dimen +1 , 

1480 af, c)=-a(f,c)kmaxi2/numerota(fila,c) 
1490 NEXT c 

1300 NEXT 4 

1510 RETURN 

1320 REM 

1330 REM MENSAJE 

1540 REM 

1330 CLS 

1360 PRINT "No puedo resolver un sistema de"sdimen;" incognitas" ¿PRINT 
1370 FOR n=1 TO 5000: NEXT n 

1580 CLS 

1390 RETURN 


Soy suscriptor de la 
revista 
AMSTRADMANIA y 
deseo hacerme 
socio del «club», 
para lo cual ruego 
me sea enviado el 


¿ 

y 
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¿ 

| 

! 
el carnet. 
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GANE CON LA 
LOTERIA PRIMITIVA 


LOTERIA: juego público de azar en 
el cual se premia con diversas canti- 
dades de dinero varios billetes nume- 
rados sacados por sorteo de entre un 
gran número de ellos. 

Hoy la «LOTO» o «LOTERIA PRI- 
MITIVA» es el juego de apuestas más 
popular en nuestro país. 

AMSTRADMANIA, consciente de 
ello, ha querido ofrecer un programa 
para que todos aquellos aficionados 
que lo deseen puedan rellenar sema- 
nalmente sus boletos. 

Esperamos confiados hacerles mi- 
llonarios a todos. 


¡ANIMO Y A GANAR! 


E 
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MODE 1:DEG: TAG: INK 1,3,10: INK 0,O:BORDER Os INK 2,5: INK 3,24 
w$="AMSTRADMANIA" 
FOR a=180 TO O STEF-16.3 
MOVE 320+200%XCOS (a) , 200+200*XSIN(a) 
FRINT MID$ (w$, (180—a)116.3+1,1); 
NEXT: TAGOFF 
LOCATE 14,13:PEN 3:¿FPRINT"P RESENTA 
LOCATE 16,18:PEN 2:PRINT"GANE CON... 
w$="LA LOTERIA PRIMITIVA”: LOCATE 2,22 
FOR f=1 TO 23:PRINT MIDS$ (w$,f,1)" "3 :FOR i=1 TO 7S5:NEXT i,f 
PEN 3:LOCATE 7,25:FRINT CHR$(164)" Editorial Cometa. 
IF INKEY$="" GOTO 110 
EORDER 10: INK 0,10: INK 1,0: WINDOW 1,80,1,24:PEN 1:PAPER O 
WINDOW+$1,1,80,25,25: FENH1,O0: FAPERH1,1:CLS+$1 
DEFINT a-z:DIM datos(49):DIM salida(12):CLS 
FOR i=1 TO 49:READ datos(i):sum=sum+tdatos(i):NEXT 
DATA 2,7,3,9,5,4,2,1244,14,59,3,4,16,6,3,4,501 3132121433 1,2,1214145316123 312171714 
131 6,194,215313:17161316,4,79,5 
DEF FNesta(n)=n=salida(1)O0R n=salida(2)O0R n=salida(3)0R n=salida(4)OR n= 
salida(5)0R n=salida(6)0R n=salida(7)0R n=salida 
OR n=salida(9)OR n=salida (10)0R m=salida(11)O0R n=salida(12) 
etodo multiple.”":PRINTRH1," P 


e su opcion. 

Ww$=INKHEY$: 1F INSTR ("12",w$)=0 OR W$="" GOTO 210 ELSE SOUND 7,200,153 
ON VAL (w$) GOSUB 290,340 

GOSUE 420 

CLS:PRINT$1i," Desea rellenar mas boletos (s/n). 

Ww$=INKEYS$: 1F w$="" OR INSTR("SsNn",w$)=0 GOTO 250 


IF w$="s"DR w$="S"THEN CLS:GOTO 200 ELSE MODE 1:END 
> 


* Sencillo. 
res bloques => 3 apuesta 
eis bloques =* 6 apuestas.”:FRINT+1,"” Fulse un numero de bloques. 
LOCATE 3,4:PRINT"Rellenar varios bloques de 6 numeros." 
w$=INKEY$: IF INSTR ("123",w$)=0 OR W$="" GOTO 310 ELSE SOUND 7,200,15 
bloques=-1X* (w$="1")-3%*x (w$="2")-6X*x (w$="3") :numeros=6: RETURN 
? Multiple. 
wt=" apuestas.” 
8 numeros => 28"w$:LOCATE 3 
O numeros => 210"w$:LOCATE 3,12 
2 numer” "os => 920"w$:LOCATE 3,34:FPRINT"Un bloque con mas de 
umeros.”:LOCATE 3,5: PRINT"Una apuesta vale 25 pts. 
PRINT+$1," Pulse su numero de apuestas. 
W$=INKEY$: IF INSTR ("123456",w$)=0 OR W$="" GOTO 380 ELSE SOUND 7,200,15 
bloques=1:numeros=VAL (w$) +6: RETURN 
> 


? P. principal 
CLS: BORDER O: INK 0,0: INK 1,0: w$=CHR$ (154) +CHR$ (154) 
LOCATE 23,2:PRINT"LOTERIA PRIMITIVA"*LOCATE 23,3:PRINT STRING$(17,"=") 


LOCATE 1,1:PRINT CHR$(150);:FOR k=1 TO 6:PRINT Ww$CHR$ (158) 3: NEXT:PRINT ws$ 
CHR$ (156) 
FOR j=i TO 7 

LOCATE 1,jXx2 

FOR i=0 TO 6:PRINT CHR$ (149); USING"+$+"5iX7+3;:NEXT:PRINT CHR$(149) 


490 


IF j<7 THEN PRINT CHR$(151);5:FOR k=1 TO 6:PRINT wSCHR$ (159)3: NEXT: PRINT 
wS$CHR$ (157) ELSE PRINT CHR$(147);:FOR k=1 TO 6 


SPRINT wS$CHR$ (155) 3 : NEXT: PRINT wSCHR$ (153) 


500 


NEXT 


. Generacion Estad 
istica-aleatoria. 


520 
530 
590 


BORDER 10: INK 0,10: INK 1,0: INK 2,10,17 
FOR nmrbl=1 TO bloques 
FOR f=1 TO 12:salida(f)=0:NEXT 


":sacados=0 


560 


WHILE sacados<numer os y 
SOUND 7,200,25:PRINTR1," Pulse opcion de generacion. 
w$=INKEYS$: IF w$=""O0R INSTR("123",w$)=0 GOTO 580 ELSE SOUND 7,200,115 
ON VAL (w$) GOSUB 660,730,730 
WEND:PRINT*1,"” Tome nota y pulse una tecla. 
IF INKEY$=""GOTO 610 
FOR f=1 TO numeros:nmr=salida(f):GOSUB 820: NEXT 
NEXT: RETURN 
? Gen. Manual 


nmr=1 
WHILE nmr<>0 AND sacados<numeros 


INPUT*1," Que numero desea (<ENTER> para fin) ",nmr:CLS%*1 
IF nmr>0 AND nmr<í5O0 AND NOT FNesta(nmr) THEN GOSUB 790 
WEND: RETURN 
? Gen. Aleatoria y Estadistica 


CLS41 
WHILE sacados<¿numeros 


IF VAL (w$)=2 THEN nmr=RNDx49+1 ELSE nmr=RNDisum+1:i=0: WHILE nmr>O0:i=i+1: 
nmr=nmr=-datos(i): WEND: nmr =i 
IF NOT FNesta(nmr) THEN GOSUBE 790 

WEND : RETURN 

? Dibujo de nmr 

sacados=sacados+1:salida(sacados)=nmr: PAPER 2: GOSUB 820 


PAPER 0: RETURN 


LOCATE (nar X7)X3+(nmr MOD 7=0)-2k(nmr MOD 7<>0), (nmr MOD 7)x2-14x(nmr MOD 


7=0) : PRINT USING"”3H%$"5nmr : RETURN 


IZ 


/ 


CINCO IGUALES 


Es un juego de dados muy típico, 
que no se trata sólo de tener suerte, 
sino también de saber elegir la ju- 
gada. 

Cuando le toque jugar pulse la tecla 
<ENTER>, y el ordenador se encar- 
gará de mover el cubilete y echar los 
dados. Después le preguntará el or- 
denador por las figuras que quiera 
guardar. Cada figura tiene un núme- 
ro; si quiere probar a conseguir cinco 
Q, por ejemplo, pulse la tecla del 3, y 
el ordenador meterá en el cubilete los 
dados que no tengan la Q hacia arri- 
ba, lo moverá y echará los dados. En- 
tonces le volverá a preguntar, y otra 
vez lo mismo, hasta que consiga que 
los cinco dados tengan la misma figu- 
ra arriba. 


Recuerde que para puntuar el nú- 
mero de jugadas que necesite para 


“conseguir cinco ases se multiplica por 


6; los que necesite para conseguir 
cinco K, por 5... 

Si al final tiene menos puntos que 
el ordenador, le habrá ganado. Qué 
bonito, ¿verdad? 


25 


19 SPEED KEY -56, 50 
26»ENV 1.3,1.5:ENT 1.25,-18,1 
30 ENY 2.4,-1,2:ENT 2,10,-20,1 
40 ENVY 3,4.1,2:ENT 3,10,20,1 
ENV 4.3,1,34:ENT 4,90,-2,1 
ENV 5,3,-1,32:ENT 5,190,2,1 
SYMBOL AFTER 227 
SYMBOL 227,124,2,1 
SYMBOL 228,0,3,0,255,0,3 - 
SYMBOL 229,0,128.224,248,224,128 
SYMBOL 230,127,123,128.128,131,135. 143,143 
SYMBOL 231,254,1.1,1.193,225,241.241 
SYMBOL 232,143, 143, 135,131,128,128,128,127 
SYMBOL 233,241.241,225.193,1,1.1,254 
SYMBOL 234,127.16, 192,140,134,134, 135,135 
SYMBOL 235,254,5,3.49,113,225,193,129 
SYMBOL 236,135, 134,134,134,143,192.160,127 
SYMBOL 237,193,225,113,57,25,3,5,234 
SYMBOL 238,127.160,192,131,135,134, 140,140 
SYMBOL 239,254.5,3,193,225,97,49,49 
SYMBOL 244, 149,140, 134,135,131,192,160,127 
SYMBOL 241,49,177,97,241,217,3,5,254 
SYMBOL 242,127.160.192,129,129.128,128,128 
SYMBOL 243,254,5,3,241,241,97,97,97 
SYMBOL 244,128,134,134,135,131,192,160,127 
SYMBOL 245,97,97,97,225,193,2,5,254 
SYMBOL. 246,127.12%, 152,152, 128,152,152,129 
SYMBOL 247,254.1,25,25,1,25,25,129 
SYMBOL 248, 129, 152.152, 128.152,152,128,127 
SYMBOL 249, 123,25,25,1,25,25,1,254 
SYMBOL 250,1247.12€.184,184.187.131,187,184 
SYMBOL 251,254,1,29,29,221,193,221,29 
SYMBOL 252,184,187,131,187,184,184,128,127 
SYMBOL 253,29,221,193,221,29,29,1,254 
MODE 1 
FOR c=08 TO 3 
INK c,11:NEXT 
BORDER 11 
PEN 2:LOCATE 11,1 
PRINT STRINGS$2,154>;" CINCO IGUALES "¡STRINGH( 2,154) 
LOCATE 13,2 
PRINT STRINGS 16,208) 
PEN 3:LOCATE 11,25 
PRINT CHR$(24)+" Alejandro Gonzalez "+CHRS(24 >; 
PEN 1:LOCATE 1,3 
PRINT"Las usadas que necesites Para comPletar"; 
LOCATE 3,6 
PRINT"cinco se multiplicaran Por" 
FOR dado=1 TN 6 
x=9:y=2+3*dado 
GOSUB 2399 
IF dado=1 THEN 559 
LOCATE 5.9+1:PRINT "**" 
LOCATE 20,y+1:PRINT "**" 
prod 32,9+1:PRINT ?-dado¡CHR$(8);"," 
LOCATE 34,y+1:PRINT "," 
PEN 1:LOCATE 2,23 
PRINT"Para iniciar cada jugada Pulsa CENTERI" 
SOUND 7,80,30,12,1,4 
INK M,22: INK 1,11 
INK 2,6: INK 3,0 
BORDER 22 
IF INKEY(18>=-1 AND INKEYC6>=-1 THEN 649 
SOUND 7,35,10,15.2,4 
MODE 1 
FOR c=A TO 3 
INK ,11:NEXT 
BORDER 11 
CLEAR 
PEN 2:LOCATE 12,14 
FOR x=1 TO 5 
PRINT CHR$( 230 >; CHR$C 231 )) CHRSC 32 25 
NEXT 
LOCATE 12,15 
FOR x=1 TO 5 
Ea CHRS$( 232 )5 CHRIS 233 5 CHR$C 32 05 
FOR dado=1 TO E 
x=2:y=3+3kdado 
GUSUB 2394 
x=34 
GoOsuB 2390 
NEXT 
FOR dado=1 TO 6 
IF (-1Cdado+22<4 THEN PEN 2 ELSE PEN 3 
LOCATE 36, 4+3kdado 
PRINT CHR$( 227 )5 CARS 228 05 CHRSC 2239 0 
PRINT USING "£";jdado 
NEXT:PEN 1 
LOCATE 12,6:PRINT"CINCO IGUALES" 
LOCATE 2,3:PRINT"maguina" 
LOCATE 29,3:PRINT". jugador" ' 
MOVE 1,1 E 
DRAWR 638,6,2:DRAWR 6,397,3 
DRAWR -633,B,2:DRAWR 0,-397,3 
MOVE 5,5 
DRAWR 630,4,2:DRALMIR M,339,3 
DRAUR -630,0,2:DRAWR 1.-389,3 
1000 MOVE 14.338 
1019 DRAWR 114,0,2:DRAWR 0,4,3 
1020 ORANR -114,0,2:DRFNIR M,-4,3 
1030 MOVE 446,232 
1049 DRAWR 114,0,2:DRAWR M.4,3 


DRAWR -114,0,2:DRAUR 0,-4,3 , 
MOVE 64,338:DRAWR M,-:396,3 . 
MOVE 68,338:DRAWR B,-306,3 
MOVE 512,338:DRAWR M,-3M6,3 
MOVE 508,338:DRAWIR M,-306.,3 - 
MOVE 14,32 

DRAWR 114,0,2:DRAWR B,-4,3 
DRAWR -114,0,2:DRAWR B,4,3 
MOVE 446,32 

DRAWR 114,9,2:DRAWR 0,-4,3 
DRAWR -114,0,2:DRAWR 0,4,3 
MOVE 160,144 

DRAWR 256,8,2:DRAWR 0,63,3 
DRAWR -256,0,2:DRAWR 0,-63,3 
MOVE 152,124 

DRAWR 272,0,2:DRAWR 0,113,3 
DRAWR -272,0,2:DRAUWR 6,-113,3 
MOVE 144,104 

DRAWR 288,0,2:DRAWR M,163,3 
DRAWR -288,4,2:DRAWR M,-163,3 
MOVE 136,84 

DRAWR 304,0,2:DRAWR 0,213,3 
DRAWR -18,40,3:DRAWR -268,0,2 
DRAWR -18,-40,3:DRAWR 0,-213,3 
MOVE 144,297 

DRAWR 288,0,2:DRAWR -14,32,3 
DRAWR -260,8,2:DRAWR -14,-32,3 
PEN 1:LOCATE 14.24 

PRINT"Tu emPiezas" 

SOUND 7,58,30,15 

INK 9,22: INK 1,11 

INK 2,6: INK 3,0 

BORDER 1. 

odio ia AND INKEY(6)=-1 THEN 1380 
-= 

GOSsuB 2160 

FOR t=1 TO 2 

FOR ttmi TO 8 

SOUND 7,1090,1,13 

SOUND 7,0,3,M:NEXT 

SOUND 7,0,2,0:NEXT 

GOSUB 2260 

IF z=1 THEN z=9:GOTO 1650 

PEN 1 

IF P=1 THEN 1520 

LOCATE 30,4+3X 

PRINT USING "££";p 

FOR t=1 TO 1490: NEXT 

SOUND 7,478,25,12,1.,1 

LOCATE 11,24 

PRINT"A Por cual was 7" 

h=j 

J5=INKEVS: ¡=VALC JS) 

IF j<1 OR 4>6 THEN 1570 


IF B.J(4)>8 THEN SOUND 7,50,10,15,,,10:GOTO 1579 


SOUND 7,15,5,15 

LOCATE 11,24:PRINT SPC<16) 

IF P=l THEN 1400 

LOCATE 30,4+3xh:PRINT SPCC2) 

GOTO 1490 

BJ) =P 

IF (-1)%C 4+2<8 THEN PEN 2 ELSE PEN 3 
LOCATE 30,4+3% 

PRINT USING "££";p 

p=g 

SOUND 7,200,20,15 

PEN 1:LOCATE 1,24 

PRINT"Hhora me toca a mi" 

FOR t=1 TO 206:NEXT 

d=7 

GOSUB 2160 

FOR t=1 TO 3+6kRND 

SOUND 7.1090,1,13 

SOUND 7,4,2,4 

NEXT 

GOSUB 2260 

FOR c=1 TO 6 

LC =A NEXT 

IF z=1 THEN z=9:GOTO 2010 

IF P=1 THEN 187 

PEN 1:LOCATE 6,4+344 

PRINT LISING "££";p 

FOR d=1 TO 5 

FOR c=1 TOS ' 

IF Ald=Accs THEN CCA dos Ad) +1 
NEXT: NEXT 

m=MAXC LC 19,020,003 9,090,010 59,006)) 
FOR c=1 TO 6 

IF Cócócom THEN 2640 

IF BM? THEN COco=-1:GOTO 1910 
IF P=1 THEN 1975, 

LOCATE 6,4+3k :PRINT SPCC25 

4=C Fons 

SOUND 7,15,5,15 

GOTO 1750 

NEXT 

Brii s=p 

IF ¿-19%C 4+27<0 THEN PEN 2 ELSE PEN 3 
LOCATE 6,4+34 5 

PRINT USING"L£E"5P 

p=0 

LOCATE 14.24:PRINT SPCC18) 

FOR c=1 TO € 

IF Elco=4 THEN 2118 


NEXT 

GOTO 2460 

FOR t=1 TO 1600: NE<T 
SOUND 7,50,30,15 

PEN 1:LOCATE 12,24 
PRINT"Te toca jugar" 
GOTO 1380 

FOR d=1 TO S 

IF Acdi=j THEN 2244 
x=9+ 34d 9 =14 

SOUND 7,200,8,15,2,3 
PEN 1:LOCATE x,34 
PRINT_ STRINGS( 2,207 > 
LOCATE x.y+1 

ql STRINGS$( 2,207). 


NEX 
2250 RETURN 


P=P+1 
RANDOMIZE TIME 
FOR d=1 TO 5 
2290 1F Acd= 4 THEN 2350 
Ad =1+INTCERRND 
x=9+ 34%): =14 
SOUND 7.400,8,11,3,2 
39 dado=A(d> 
GOSUB 2390 
NEXT 


FOR d=1 TO 4 

IF A(d=A(d+1) THEN NEXT ELSE RETURN 
z=1: RETURN 

IF (-1Cdado+2><8 THEN PEN 2 ELSE PEN 23 
LOCATE x,y 

da=226+4kdado 

PRINT_CHRIKC da >; CHRSí da+1) 

LOCATE x,y+1 

PRINT CHRS( da+2 >; CHR$C da+3) 


RETURN 
FOR t=1 TO SAaM:NEXT 
CL5 


FOR dado=1 TO 6 
x=2+5kdado:y=4 

SOUND 7.490,10,11,3,2 
GOSUB 2390 

FOR t=1 TO 50:NEXT 


NEXT 
FOR t=1 TO 100:NEXT 
PEN 1 


SOUND 2,50,3,15.,,1 
LOCATE 2,10:PRINT".J:" 

FOR t=1 TO 100:NEXT 

SOUND 3,300,3,15,.,239 
LOCATE 2,13:PRIN : 

FOR t=1 TO 200:NEXT 

FOR dado=1 TO 6 

SOUND 2,50,1,12 

LOCATE Skdado, 19 

S NG "££";BJódado +; 


NG "£";7-dado; 
IF dado<6 THEN PRINT"+" 
bi=bj+BJ dado k(7=dado> 
SOUND 3,500,1,12 
LOCATE Sádado. 13 
PRINT USING "££";BModado +; 
PRINT "4%; 
PRINT USING "£";7-dado; 
IF dado<6 THEN PRINT"+" 
bm=bm+BMi dado kedado 
NEXT 
FOR t=1 TO 1608:NE<T 
SOUND 2,50,5,15,,,1 


Ñ Ñ y 
LOCATE 39,10:PRINT"=":bj | Ñ 
FOR t=1 TO 100:NEXT ] ' 
SOUND 3,540,5,15,.,30 
LOCATE 34,13:PRINT"="5bm . 
FOR t=1 TO S00:NEXT 


PEN 2 Ú E 
IF bicbm THEN 2969 

SOUND 7.300,48, 15 | 
SOUND 7,,2.8 e de 


SOUND 7.300,1400,15,5,5 
LOCATE 19,18 
PRINT"Lo siento ...” 


a. A de suscripciones 


GOTO 3640 

SOUND 7,200,468, 12 

SOUND 7,9,2.4 

SOUND 7.204.140,12,4.4 

LOCATE 14.18 

PRINT"Me has Sanado '!" 

FOR t=1 TO 206: NExT 

LOCATE 15,20 

PRINT"Echamos Otra ...?" 

FOR t=1 TO 940:MEXT 

SOUND 7,1904.15,15 

PEN 3:LOCATE 3,25 

PRINT CHRSc240+" Para wolwer a Jusar Pulsa CENTERJ. "+CHR$ 24); 
IF INKEY(185=-1 AND INKEYC6=-1 THEN 3080 
SOUND 7,190.460,12,4,4 

FOR t=1 TO 100: NET 

GOTO Es 
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EL PENSADOR :-1| 
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El objetivo de este programa es 
hacerle pasar un rato entretenido y, 
a la vez que repasa su cultura, le 
ayudará a ejercitar su memoria. 


El juego consiste en una serie de 
preguntas tipo test, donde se darán 
tres soluciones, pero una sola 
correcta. 


Dado que las preguntas pueden 
ser interminables, daremos a este 
juego tratamiento de sección fija, 
dedicándose cada mes a una 
materia diferente. 


El juego está pensado para que 
puedan participar varios jugadores 
con diferente grado de cultura y 
edad, por lo que las preguntas irán 
elaboradas con diferentes niveles 
de dificultad. 


¡Consigue ser el sabiondo! 
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EL PENSADOR-11 
por PAZ CERRILLO 


GOSUB 78: ” ir a establecer colores 
CLS 
LOCATE 1,10 
PRINT ” EL PENSADOR” 
PRINT 
PRINT 
PRINT tel juego de las preguntas ” 
PRINT 
PRINT ” y respuestas)” 
NmrPreguntas=50 
DIM preguntas$(NmrFreguntas,4),respuesta(NmrPreguntas),HaSalido(NmrPreguntas) 
REM leer preguntas y respuestas 
FOR i=1 TO NmrPreguntas 
READ preguntas$(i,1) 
READ preguntas$(i,2) 
READ preguntas$(i,3) 
READ preguntas$(i,4) 
READ respuesta(i) 
HaSalido(i)=0 
NEXT i 
PRINT:PRINT:PRINT 
INPUT ” COMO TE LLAMAS”; nombres 
nombre$=UPPERS(LEFTS(nombres$,1))+LOWER$(MID$(nombre$,2,10)) 
n=0 : ? inicializar el contador de preguntas que han salido 
REM sacar una pregunta al azar 
IF n= NmrPreguntas THEN n=0: GOSUB 23 
n=n+1 : 
p=INT(RNDXNmrPreguntas)+1 
IF HaSalido(p)=1 THEN 32 
ELSE HaSalido(p)=1 
GOSUB él: ” ir a presentar pregunta 
PRINT:PRINT:PRINT 
PRINT ” CUAL ES LA RESPUESTA, "¿nombres+s;"”?” 
LOCATE 5,24 
PRINT "XXX PULSA <0> PARA ACABAR XXXX ” 
a$=INKEYS: IF a$="" THEN 39 
IF a$=”"0” THEN CLS:END 
a$=UPPERS (a$) 
IF a$<>"A” AND a$<>"B" AND as$<>"C" THEN LOCATE 1,1:PRINT CHR$(7);CHR$(7) : GOTO 


YO yOo0 ban 


r=ASC(a$)-69: ? asc("A")=65; asc("E")=66:asc(”"C”)=67 

REM 

REM presentar respuesta 

REM 

MODE O 

INK 1,1 

CcLS 

LOCATE 1,10 

IF r<>respuestalp) THEN INK 0,294: PRINT"” OCOHHAH! 111" PRINTIPRINT” TE HAS EQ 
UIVOCADO":GOTO 55 

INK 0,26,1 

SPEED INK 10,10 

PRINT" MUY BIEN! !'":PRINT:PRINT” HAS ACERTADU” 

FOR espera=1 TO 1500: NEXT espera 

GOSUB 78: ? ir a reestablecer los colores iniciales 

GOTO 30: ? otra pregunta 

REM 

REM presentar pregunta 

REM 

CcLS 


62 PRINT:PRINT:PRINT:PRINT 

63 PRINT preguntas$(p,1) 

64 PRINT:PRINT:PRINT:PRINT 

65 PRINT ” a.-"j preguntas$t(p,2) 
66 PRINT 


67 PRINT ” b.-"; preguntas$(p,3) 

68 PRINT 

69 PRINT ” C.-”j preguntas$(p,4) 

70 PRINT:PRINT:PRINT 

71 RETURN 

72 REM 

73 FOR i=1 TO NmrPreguntas 

74 HaSalido(i)=0 

75 NEXT i 

76 RETURN 

77 REM colores 

78 MODE 1 

79 BORDER O 

30 PEN O 

381 PAPER 1 

82 INK 0,1: INK 1,24 

83 RETURN 

84 REM ===== datos ===== 

85 REN 

86 DATA ” EL ULTIMO REY ESPANOL DE LA DINASTIA DE LOS AUSTRIAS FUE”, "CARLOS 1 
V","CARLOS 11”","FELIPE 11”,2 

87 DATA " EL PRIMER REY BURBON DE ESPANA FUE", "FELIPE V”, "FERNANDO VII”,"CARLOS 
111”,1 

88 DATA " EL PRINCIPAL VALIDO DE CARLOS IV FUE”, "CAMPOMANES”,"GUDOY”, "FLORIDABLA 
NCA",2 


89 DATA " EL 'Estatuto de Bayona” SURGIO EN El ANO”,"1812","1808”,"1886",2 

90 DATA " EL PRIMER TEXTO CONSTITUCIONAL ESPANOL SE PROMULGO EN ","1812","1845" 
al : 

91 DATA ” EL MONARCA DEL CUAL SE HA DICHO QUE EN SUS DOMINIOS NUNCA SE PONIA EL 
SOL ES","FELIPE 11","CARLOS I ","CARLOS II1”,1 


92 DATA " LA FAMOSA Dama de Elche PERTENECE A LA EPOCA”, "PRERROMANA”", "ROMANA”,” 
GRIEGA", 1 
93 DATA " EL TEATRO DE MERIDA ES DE LA EPOCA”, "ROMANA”, "ROMANICA", "GOTICA”, 1 


94 DATA " CUAL ERA EL PUEBLO DEL QUE PROCEDIAN LOS VISIGUDOS?”,”EL PUEBLO GER 
MANO”, "EL PUEBLO ROMANO", "EL PUEBLO ARABE", 1 
95 DATA " Leovigildo FUE UN REY", "CARTAGINES”,"VISIGODO”, "ROMANO", 2 


96 DATA " LOS MUSULMANES HICIERON SU APARICION EN LA PENINSULA JIKERICA A PRINCIP 
10S DEL SIGLO", ”"V1I","I1XxX","VIII",3 
97 DATA " EL ULTIMO REY VISIGODO FUE", "RECAREDO”, "DON RODRIGO”, "VIRIATO”,2 


98 DATA " EL CARDENAL CISNEROS FUE REGENTE A LA MUERTE DE ”,”"CARLOS 111”,"FERN 
ANDO El CATOLICO", "FELIPE 14”,2 
99 DATA ” EL CONDE-DUQUE DE OLIVARES FUE El VALI- DO DE ",”FELIFPE 1V”,”FELIPE 11 


" "CARLOS 11”,1 

100 DATA " CUAL FUE EL SUCESOR DE FELIPE 1/?","CARLOS 11”,"FERNANDO VI”, "FELIPE 
v",1 

101 DATA " LA GUERRA DE LOS TREINTA ANOS TIENE LUGAR EN EL SIGLO”, "XVII", "XI 
Y", "XIII", 1 

102 DATA " MAGALLANES Y ELCANO COMIENZAN SU VUEL- TA AL MUNDO EN EL ANO", "1519" 
,"1400","1620",1 


103 DATA " QUE REY CONSIGUE LA VICTORIA DE SAN QUINTIN?", "CARLOS 1”",”FER 
NANDO VII”,"FELIPE 11”",3 : 
104 DATA ” LA BATALLA DE LEPANTO TIENE LUGAR DURANTE EL REINADO DE ”",”FERN 


ANDO VII", "CARLOS 1I11","FELIPE I1",3 

105 DATA " QUIEN FUE El gran Capitan” ?”,"RICARDO CURAZON DE LEON", "GONZALO FDEZ 
DE CORDOBA”,"CRISTOBAL COLON”, 2 

106 DATA " CUAL DE ESTOS ESPANOLES NO TIENE RELA- — CION CON LOS OTROS?"”, "HERNAN 

CORTES”,"EL GRAN CAPITAN”, "PIZARRO", 2 

107 DATA ” HERNAN CORTES FUE UN COMGUISTADOR DE ORIGEN ", "EXTREMEHCO", "ANDALUZ 


", "MANCHEGO", 1 


108 DATA ” 


CUAL DE ESTAS CULTURAS NU ESTA RELACIO- NADA CON LAS OTRAS?”,"INCA”,” 


AZTECA”, "HINDU"”,3 


109 DATA ” 


EAJO QUE REINADO TUVO LUGAR LA LLAMADA Hegemonia Espanola 2”, "CARLOS 


1","FELIPE 11”, "FERNANDO VIl”,2 


110 DATA ” 


EL MONASTERIO DEL ESCORIAL CONMEMORA LA VICTORIA ESPANOLA EN 14 BATAL 


LA DE”,"SAN QUINTIN”,"LEPANTO”,"FAVIA”, 1 


111 DATA ” 
60",2 

112 DATA * 
IPE VI",1 
113 DATA " 
VII",2 
119 DATA ” 
1820",1 
115 DATA ” 


EN QUE ANO SE PRODUJO LA PERDIDA DE GIBRALTAR?”,”1820”,”1709”","”17 
CUAL FUE EL SUCESOR DE FERNANDO VI?”,"CARLOS 111”, "FERNANDO VII", "FEL 
CUAL DE ESTOS REYES NO ES BOREON?", "CARLOS 111”,”FELIPE 11”, "FERNANDO 
EN GUE ANO TUVO LUGAR LA BATALLA DEL DOS DE MAYA?”, " 1808”, "1812",” 


QUE REINADO FUE CUNOCIDO COMO Absolu- tista?”,"EL DE FERNANDO VII”, 


"EL DE FERNANDO VI”,"EL DE CARLOS IU”, 1 


116 DATA ” 
EL SIGLO”, 
117 DATA ” 


El Despotismo Ilustrado ESPANOL SE DES- 
"VII", "XVIII","XVI”,2 
LA BATALLA DE Trafalgar FUE UNA BATA- 


ARROLLA EN LA SEGUNDA MITAD D 


LLA ENTRE”, "FRANCIA E INGLATE 


RRA”, ” ESPANA Y FRANCIA”, "ESPANA E INGLATERRA”,3 


118 DATA ” 


JOSE BONAPARTE REINO EN ESPANA DURANTE LÚS ANOS”, ”"1808-1819”,"1810-1 


814","1812-1819”,1 


119 DATA ” 
A, ESPE- 


MARIA CRISTINA Y POSTERIORMENTE ESPAR-  TERO FUERON REGENIES DE ESFPAN 
RANDO LA MAYORIA DE EDAD DE”, "ALFONSO X11 


", "FERNANDO VII", "ISABEL 11”,3 


120 DATA ” 


EN QUE ANO SE ESTABLECE EN ESPAMA El SUFRAGIO UNIVERSAL?”,”1890”,” 


1869","1833",2 


121 DATA ” 
"SALMERON” 
122 DATA ” 
6",1 

123 DATA ” 


CUAL FUE El PRIMER PRESIDENTE DE LA 
, "FIGUERAS”, "PI Y MARGALL”,2 
LA SEGUNDA REPUBLICA ESPANOLA SE INICIA EN EL ANO”, ”"1930”,"1931","193 


PRIMERA REPUBLICA ESPANOLA?”, 


SAGASTA FUE JEFE DE GOBIERNO DE ”",”ALFONSO X11”,”"ALFONSO XI11”,"Ningu 


no de ellos”, 1 


124 DATA ” 


CON CUAL DE ESTAS CARACTERISTICAS IDEN- TIFICARIAS LA EDAD MEDIA?",” 


ABSOLUTISMO”, "FEUDALISMO", "LIBERALISMO”,2 


125 DATA ” 
DEL HOM- 


EL PERIODO HISTORICO LLAMADO Prehis- ria ABARCA DESDE LOS ORIGENES 
BRE HASTA LA APARICION DE”,”EL PRIMER 0BJ 


ETO TALLADO", "LOS PRIMEROS DOCUMENTOS ESCRITOS”, "LA PRIMERA PINTURA”,2 


126 DATA ” 
O ERECTUS” 
127 DATA ” 
SIGLO xU” 
128 DATA ” 


CUAL DE ESTOS FOSILES HUMANOS ES MAS "HON 
,s "HOMO MEARDERTHALENSIS"”,2 

LA EDAD MEDIA SE EXTIENDE DESDE INICIOS DEL SIGLO V HASTA”, "MITAD DEL 
y "SIGLO XIV", "FINALES SIGLO X111”,1 


LA RESTAURACION ESPANOLA FUE IMPULSADA POUR El POLITICO”, "SERRANO”,"P 


ANTIGUO?”, "HOMO SAPIENS”, 


RIM”, "CANOVAS DEL CASTILLO”,3 


129 DATA ” 


LA DICTADURA DE PRIMO DE RIVERA SE PRO- LONGO DURANTE El PERIODO”, "19 


20-1931","1923-1930","1915-1920",2 


130 DATA ”" 
131 DATA ” 
UERRILLE- 


EN QUE SIGLO SURGE LA Ilustracion?”, "XVI", "XVII", "xVII1”,S 
"EL EMPECINADO”?,? EL CURA MERINO”, “ESPOZ Y MINA”, ETC, 
ROS DE”, ”LA GUERRA DE LA INDEPENDENCIA”, 


FUERON 6 


"LA REVOLUCION DE 1868","EL MOTIN DE ARANJUEZ”, 1 


132 DATA ” 


LA REVOLUCION DE 1868 SE PRODUCE BAJO EL REINADO DE ”, "FERNANDO VII 


", "ISABEL 11","CARLOS 1V”,2 


133 DATA ” 


LA GUERRA CIVIL ESPANOLA SE DESARROLLO A LO LARGO DE LOS ANOS”, "1936 


-1939","1936-1995”,"1931-1936”,1 


1349 DATA ” 
SABOYA”,3 
135 DATA ” 


EL SUCESOR DE ISABEL 11 FUE”, "ALFONSO X11”, "ALFONSO X111”, "AMADEO DE 


CUAL DE ESTUS SUCESOS NU SE PRODUJO EN —18987?”", "FERDIDA DE CUBA Y FIL 


IPINAS","LA GUERRA CON EE.UU”, "ASESINATO DE CANOUVAS” 


13 
136 DATA ” 
REY DE 


EN QUE ANO SE PROCLAMA AL ENTONCES PRIN-CIPE Juan FUTURO 


ESPANA?","1963","1965","1968"”",3 


Carlos caro 


"EDITORIAL 
E COMETA 


PRESENTA 


CHARLES DICKENS 308 
Una Canción 
de Nabidad 


DE VENTA 
EN 
LIBRERIAS 


2 EDITORIAL 


COMETA:.. Zamora s/n, nave 11. Telf.:673 51 66 San Fernando de Henares (MADRID) 


Con este programa pretendemos a 
la vez de entretener al aficionado, 
hacer pensar y familiarizarle con el 
mundo del ordenador. 


Al final del programa planteamos 
una serie de incógnitas. En este 
primer número muy elementales, y 
que serán resueltas en el próximo. 


«MANDE SUS SOLUCIONES A 
NUESTRA EDITORIAL Y SI SON 
CORRECTAS PREMIAREMOS SU 
ESFUERZO CON UNA 
SUSCRIPCION Y LA 
PARTICIPACION EN NEERAnES 
SORTEOS.» 


Este juego está programado para 
jugar dos personas. 

En la pantalla aparecerá el tablero 
de ajedrez con las fichas colocadas 
para los dos jugadores. 

Siguiendo las instrucciones que 
aparecen en pantalla, dará comienzo 
el juego. 

El ordenador irá marcando los re- 
sultados obtenidos por cada jugador. 

El juego, que se desarrolla entre 
dos adversarios sobre un tablero de 
64 casillas blancas y negras alterna- 
das, dispone de 16 piezas para cada 
jugador (un rey, una reina, dos torres, 
dos alfiles, dos caballos y ocho peo- 
nes). 
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El juego termina en «Jaque Ma- 
te», que será advertido por el ordena- 
dor, o en tablas. 

Mida su inteligencia y paciencia 
con este juego, que pese a su anti- 
guedad sigue estando vigente en casi 
todos los países del mundo. 


¡SUERTE! 


10 * Ajedrez 
20 NODÉ 1: INK 0,0: BORDER O: INK 1,13: INK 2,S:INK 3,13,0:SPEED INK 10,10 

30 DEFINT a-y:DIM b1(8,8):DIM n318,9):DIX :(8,8) 
-40 VINDOYH1,1,40,25,25:PENUI, 1: PAPERI!,0 

50 DEG:TAG:PLOT 999,999, 3:m6="AMSTRADMANTA 

$0 FOR a=!80 TO 0 STEP-15,2 

70 MOVE 320+200*C051a),200+200FSINa) 

80  PRINT MIDS(ws, (180-a)116,3+1,1); 

90 NEXT: TAGOFF:LOCATE 14,13:PAPER 0 

100 PEN 2:PRINT"P RE SENT A':ms="JUGANDO AL AJEDREZ”:LOCATE 2,20 

110 FOR f=1 TO 20:PRINT MIDS(w$,f,1)” "¡FOR i=! TO 100; MEXT ¡,f 

115 PEN I:LOCATE 4,25:PRINT "Copyright Editorial cometa. 

116 IF INKEYS="" GOTO 116 

120 x$=" blancas”;y$=" negras 

130 PEN 1:PRINTR1," Es continuacion de otra partida?” 

140 w$=INKEYS: IF m$="" GOTO 140 ELSE conti=(m$="S” OR w$="5”) 

150 IF conti THEN G60SUB 1330 ELSE BOSUB 1530 

160 * Simbolos 

170 SYMBOL AFTER 140 

180 SYMBOL 141,0,k5A,k7E,k3C,k3C,L3C,k7E: SYMBOL !42,0,410,£30,%78,k!C,43C,47E 
190 SYMBOL 143,k18,418,L3C,k3C,L18,%18,k7E: SYMBOL 144,0,£5A,k5A,17E,k3C,k3C,£?E 
200 SYMBOL 145,k18,k18,23C,k7E,k3C,k18,L7E:SYMBOL 144,0,0,218,k3C,13C,48,£7E 
210 FOR ¡=150 TO 158: SYMBOL ¡,O:NEXT:SYMBOL 150,0,0,k3C,13C,L3F,L3F,k:F,kF 

220 SYMBOL 162,0,0,L7C,27C,kFC,LFC,RFB,LFO:SYMBO: 163,LF,kF,kF,kF,kF,kF,F kE 
230 SYMBOL 169,LFF,RFF,RFF,LEF,LFF,LFF,RFF,LFF:SYMBOL 165,2F,LF,kF,A3F,3F,L2F 
240 SYMBOL 165,kFO,kFO,kFO,kFO,kFO,kFO,kFO, FO: SYMBOL 172,0 

250 SYMBOL 167,LFF,RFF,LFF,RFF,LFF,kFF:SYNEOL 158,LFO,LFO,kFO,kFC,kFC,4FL 

260 SYMBOL 170,0,0,0,k1,%3,k7,27,k3:SYMBOL 176,k3,AF,kF,k3F,k3F,L3F 

270 SYMBOL 177,LFF,kFF,LEF,LFF,LFF,kFF: SYMBOL 178,4C0,LFO,kFO,kFC,kFC,kFC 

280 SYMBOL 171,0,0,kE0,LEO0,kF8,kFB,kFE,RFE:SYMBOL 173,83,kC,kF,kIF,41F,k0F,EC,! 
290 SYMBOL 174,LFF,LFF,RFF,AFF,AFF,kFF,LEF,kFF: SYMBOL 185,0,lF,kF,k3F,k3F,L3F 
300 SYMBOL 175,0,0,0,0,180,80,£80,kC0;SYMBOL 161,0,0,t7C,47C,RFF,kFF,KFE,LFF 
310 SYMBOL 180,0:SYMBOL 182,0:SYMBOL 183,0,1,3,1:SYNBOL 185,0,£80,4C0,480 

320 SYMBOL 184,LFF,AFF,LEF,LFF,LEF,LFF,LFF,LFF+SYKBOL !88,0,kFO,kFO,kFC,AEC,AFC 
330 SYMBOL 187,L3C,LFF,LFF,LEF,AFF,RFF: SYMBOL 181,0,0,k18,k30,118,419,£30,L”£ 
340 SYMBOL 190,0,0,k10,k18,L18,k18,k1D,k1D:SYMBOL 193,k1D,k1F,kIF,kF,kF,2,2,3 
350 SYMBOL 191,0,0,241,LE3,LE3,kE3,4F7,LF7: SYMBOL 197,LFF,AFF,LFF,LFF,AFF, FF 
360 SYMBOL 192,0,0,L4,k8C,k8C,k8C,kDC,RDC: SYMBOL 198,LE0,kFO,RFO,kFC,LFC,LFL 
370 SYMBOL 199,LFF,RFF,RFF,RFF,RFF,LFF,LFF,LFF 

380 SYMBOL 195,kDC,RFC,RFC,RF8,LF8,kEO,kE0,REO: SYMBOL 196,k3,kF,kF,%3F,L3F,A3F 
390 SYMBOL 201,0,0,k18,k18,k7E,47E,k18,4FF: SYMBOL 203,3,47,4F,4!F,L!F,LIF,kF,3 
400 SYMBOL 202,0,0,0,0,0,0,0,L80:SYMBCL 204,kFF,RFF,AFF,kFF,KFF,RFF,kFF,kFF 
410 SYMBOL 205,%C0,LEO,kFO,4F8,LF8,%F8,kFO,kCO: SYMBOL 205,£3,kF,kF,L3F,L3F, 3F 
420 SYMBOL 207,LFF,kFF,LFF,LEF,kFF,kFF:SYMBOL 208,%C0,kFO,kFO,kFC,kFC,kFC 

430 SYMBOL 210,0,0,0,0,0,0,1,3:SYNBOL 211,0,0,k18,L3C,47E,kFF,LFF,kFF 

440 SYMBOL 212,0,0,0,0,0,0,£80,%C0:SYMBOL 217,%3C,kFF,kFF,kFF,LFF,LFF 

450 SYMBOL 214,LFF,kFF,RFF,LEF,LFF,LEF,kFF,LFF: SYMBOL 200,0,0,0,0,0,0,0,1 

460 SYMBOL 216,0,kF,kF,k3F,3F,k3F: SYMBOL 215, kEO,kE0,t:CO, k80 

470 SYMBOL 218,0,kFO,kFO,kFC,RFC,LFC: SYMBOL 213,7,7,3,1 

480 * tablerc 

490 INK 1,0: INX 2,0: INK 3,0:1F conti GOTO 510 

500 ng(1,1)=160:n9(2,1)=170:m9(3,1)=180:n9(4,1)=190;n9(5,1)=200:n916,1)=180:5917 


,L3=170:m918,1)=160:FOR 4=1 TO B:ng(+,2)=210:b11 


4,7)=210:NEXT:b1(1,8)=160:b1 (2,8)=170:b1(3,8)=180:b1(4,81=190:b1(5,8)=200:b1(6,81=180:b117,81=170:b1(8,€ 


510 CLS: pp=1 

520 FOR cl=1 TO 8:FOR di=1 TO 8 

520 —1F 4191 THEN pp=-2Hpp=1)-(pp=2) 

540  1F ngíci,d1)<)0 THEN PEN O:a=ngíci,d1) 


550 — 1F blíc1,d1)()0 THEN PEN 3:a=51fc!,d!) 

560 IF blíc1,dl)=ngíc!,d1) THEN a=0 

570 PAPER pp:GOSUB 830 

580 NEXT di,c1:PAPER O:PEN 1 

590 LOCATE 29,7: PRINT*<CTLO<F>":LOCATE 25,9:PRINT"S"abar partida," 

600 LOCATE 29,11: PRINT"<CTLIXCI":LOCATE 27,12:PRINT*Cambia turno, 

605 LOCATE 25,14:PRINT"Cussores mover *:LOCATE 25, 15:PRINT*COPY) marcas 

610 G0SUB 1150:GNSUR 1120: 1F conti THEN GOSUB !070 

620 ' wov 

630 INK 1,13:INK 2,3:INK 3,120x=113y=14: 

540 IF conti THEN 60SUB 1%00 ELSE GOSUB 1590 

650 sg9=0:WHILE x(c2,d2)=0;G0SUB 1!?0:WEND:sg=-! 

660 c!=c2:d1=42:CLSW!+PRINTR1,* 0.k.”:60SUB 1150 

670 WHILE x1c2,d2)<>0:60SUB 1!70;WEND 

680 CLSA!:PRINTH1,” Conforme (5/n)?":GOSUB 2150 

690 IF INKEYS(>"" GOTO 690 

700 IF INKEYS="" GOTO 700 

710 IF INKEY(461=0 THEN EOSUB !510:60T0 $50 

720 pasxtcl,di):p22=-mglc2,d2)Htr-b1 (02,421 ta=0) 

730 IF INKEY(15)=128 6012 70 

740 ? verif, y escritura de eov. 

750 mn1=0:0N(p2-1501/10 GOSUB 880,900,920,940,950,570 

760 IF enl THEN GOSUB !000:C0TO 650 

770 1F tn THEN b1(c2,22)=p2:b1(c1,d1)=0 ELSE ngfc2,d2)=p2:19(c1,d1)=0 

780 a=0:60SUB 820:c!=c2:4!=42:3=p2:60SUB 820:G0SUB 1120 

790 IF pz2<)0 THEN E0SUB 100 

800 G0SUB 1590:G0TO 550 

810 * Escritura 

820 PEN tn-4F(tn):IF(ci MOD 2=0 AND di MOD 2<)0)OR(c1 MOD 2<)0 AND di MOD 2=0) THEN PAPER 2 ELSE PAPER 1 
830 IF a=0 THEN a=150 

840 i=c143-2:j=d143-2 

850 FOR 4=0 TO 2:FOR 9=0 TO 2:LOCATE ¡+f,j+g:PRINT CHR$(a+t+gF2):NEXT g,f 

860 RETURN 

870 * comp mvtos Ñ 
880 IF ci=c2 THEN FOR ¡=MIN(d1,d2)+1 TO MAX(d1,d2)-1:1F b1(c1,1)<)0 OR mgíci,i) (0 THEN mnl=-1 ELSE:NEXT ELSE 1F di=d2 THEN FOR 
i=NIN(c1,c2)+1 TO MAXICA, c2)-1:1F b1(i,41)<70 OR mg(i,d1)<)0 THEN mnl=-1 ELSE:NEXT ELSE mn]=-1 

890 RETURN 

900 mn1=NOT((ABS(c1-c2)=2 AND ABS(d!-d2)=1)OR(ABS(d1-d2)=2 AND ABStci-c2)=1)) 

910 RETURN 

920 IF ABS(c1-c2)=ABS(d!-d2!THEN FOR f=1 TO ABS(d1-d2)-13i=c1+SON(c2-c1):j=dd +HESEN(d2-d1):1F mgíi,31()0 OR bl(i,7)<)0 THEN mn 
=-1 ELSE NEXT ELSE mn!=-1 

930 RETURN 

940 G0SUB 880: IF mn] THEN mn1=0:G0SUB 920 

950 RETURN 

960 mnl=ABS(c1-c21)1 OR ABS(d1-d2) )1:RETURN . 

970 a=d1-d2:an1=NOT(ci=c2 AND p22=0 AND((tn AND(a=! OR(d!=? AND 22=5 AND ngi£,c1)=0 AND blis,clj=0)))ORINOT tn AND(a=-1 OR(d1=2 AND 
42=4 AND ng(3,c1)=0 AND b1(3,c1)=0)))))AND NOT(((a=1 AND tn)OR(a=-1 AND tr=03)4ND ABSíc!-c2)=! AND pz2X>0) 
980 RETURN 

990 * mov malc y nombres 

1000 PRINTH1,* Movimiento incorrecto ";:60SUB !!40 

1010 IF(tn=0 AND k=1)OR(tn AND k=0)THEN PRINTA!,aS;ELSE PRINTHI, DS; 

1020 RETURN 

1030 IFttn=0 AND k=1)OR(te AND k=0)THEN PRINTH1,DS;ELSE PRINTHL, as; 

1040 RETURN 

1050 ” comidas 

10£0 m$=CHR$(141+(p22-150)110);1F tn THEN cb$=cb$tm$ ELSE ca$=co$tmó 

1070 PAPER O:LOCATE 25,24:PEN 3:PRINT cn$:LOCATE 25,1:PEN 2:PRINT cb$ 


1080 IF pz2=200 EOTO 1280 

1090 IF tr THEN ngíc2,d2)=0 ELSE bl (c2,d2)=0 

1100 RETURN 

1110 ” marco 

1120 PLOT 0,399,2:DRAYR 383,0: DRAYR 0,-383:DRAUR -383,0:DRAWR 0,383: RETURN 
1130 * sonido 

1140 SOUND 7,1204,60,14 

1150 SOUND 7,45,20, 14: RETURN 

1160 * sov cursor 

1170 WHILE INKEY(9)<)0 

1180 IF INKEY(53)=128 THEN 60SUB 1420 

1190 IF INKEY(62)=128 AND sg=0 THEN GOSUB 1590 

1200 — x=x+3H(INKEY18)=0 AND x)2)-3H(INKEY¡1)=0 AND x<23) 

1210 y=yH3HINKEY(0)=0 AND y)2)-34INKEY12)=0 AND y(23) 

1220 ep=TEST(xH 6-8, (25-y)416+8):PAPER pp 

1230 IF pp=0 THEN PEN 1 ELSE PEN O 

1240  LOCATE x,y:PRINT CHR$(2381:C2=x13+1:d42=y13+1 

1250 FOR ¿=1 TO 200:NEXT:PEN ppe:LOCATE x,y:PRINT CHR$(238) 

1260 JEND: RETURN 

1270 * final 

1280 BORDER 27,0:FOR t=1 TO 40:SPEED INK t,41-t;FOR r=1 TO 1000:NEXT r,t 
1290 BORDER 0:PRINTH!,” Lo siento ";:G0SUB 1030:PRINTA,” has perdido. 
1300 FOR t=1 TO S000/NEXT:PRINTHI,*" Otra partida(S/N)? 

1310 mS=UPPERS(INKEYS):1F m$="* EOTO 1310 ELSE IF m$="5" THEN RUN ELSE END 
1320 * carga partidas 

1330 INPUTH!,” Partida numerci0-9)? ",9$:1F p$c*"0” OR p$>*9" GOTO 1340 
1340 PRINTH!,” Pulse [PLAYI y otra tecla. 

1350 IF INKEYS="" GOTO 1350 ELSE PRINTUL,” Espere por favor. 

1360 OPENIN *'partida*+c$ 

1370 FOR i=! TO 8: FOR ¡=1 TC 8 

1380 INPUTRO, ng(3,5),b1(i,3) 

1390 NEXT ¿,¿sINPUTRO, tn: INPUTHO, k 

1400 INPUTEO, a$: INPUTR9, DS: INPUTRO, cr: INPUTRO, cb$ 

1410 CLOSEIN+RETURN 

1420 * grabe partidas 

1430 CLSW!: INPUTH!,* Numero de partidai0-9)? * ps. 1F p$:"0” OR p$"9" GOTO 1430 
1440 PRINTR!,* Pulse [RECI, [PLAY] y ctra tecla. 

1450 1F INKEYS="" GOTO 1450 

1460 SPEED WRITE 1:OPENOUT "'Partida"+p$ 

1470 FOR i=! TO 8:FOR ¡=! T0 8 

1480 PRINT 89,ng(i,j):PRINT 89,b1(i,3) 

1490 NEXT ¿,¿:PRINTEO, tn:PRINTEO, k 

1500 PRINTEO, a$:PRINTR9,DS:PRINTR9, cos: PRINTRO,Cb$ 

1510 CLOSEOUT: RETURN 

1520 ” Inicio 

1530 CLS:INPUT"Jugara....*,a$:PRINT"":1F a$="* GOTO 1530 ELSE a$=LEFTS(a$, 6) 
1540 LOCATE 14,1: INPUT”, .contra..”,DS:PRINT"*:1F b$="" GOTO 1540 ELSE b$=LEFTS 
1550 LOCATE !0,10;PRINT "Para "¡a6;:k=INTIRNDE2);1F k=1 THEN PRINT y$ ELSE PRINT 
1560 LOCATE 10,12:PRINT "Para ";b$;:1F k=1 THEN PRINT x% ELSE PRINT y$ 
1570 PRINT4!,” Una tecla para contiruar, 

1580 1F INKEYS="" G0TO 1580 ELSE RETURN 

1590 te=NOT ta 

100 FOR ¡=! TO 8:FOR ¡=1 TO 8B:x(1,5)=-ngli,j)HNOT to)-b1(i,j)Ftn:NEXT ¡y i 
1610 CLSBL:PRINTH!," Juegan”;: IF tn THEN PRINTB1,x$;ELSE PRINTOL, yS; 

1820 PRINTH!,*.Te toca ”;:605UB 1010; RETURN 
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Deseo suscribirme a la revista AMSTRADMANIA por un año consecutivo (11 números) al 
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